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ABSTRACT 

Sigh Speed Reader/Punch Test is a maintenance program designed to 
test the Type 4012A high speed punch and the Type 6013 or 4011B 
high speed readers. Tapes may be punched or read on the Teletype 
if one of the high speed devices does not exist in the user's system. 
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ABSTRACT 



HIRH SPEED READER PUNCH TEST IS A MAINTENANCE 
PROGRAM DESIGNED Tfi ?EST T ^e *vp? 4812A HIGH 
SPEED P«jNC« AVD **iE ""*»£ 5? 13 D^ 421IB HlG" 
SP£E* »EADE^S„ 'APES ^A v SE ©U^C^ED OP ^EAD ON 
The TELETYPE 1 F G\F 0*= r «*E *:3* SPEED DEVICES 
DCES *QT E*IS T 1^ 'hE „SE?S $ ¥ $TE»% 
is a c^ T "513°,. A" *^ !* *E ^C- r - Ti *E nJG*» 
SPEED «EADE» A r O -\j^C« *j3* BE 1^ **E 
SYSTEM FQJ? A mEa*I\SEULL ^EST* 

MACHINE REQUIREMENTS 

NOVA/SUPERNOVA FA^ILV PROCESSOR 

2K READ/WRITE MFMOPY. MI^I^'J* 

TELETYPE OR CRT FOR CONSOLE I/O 

OPTIONAL EOUIPHEMT 

TYPE 4?|2A PMNCH AND CONTROL 
TYPE 4011A HIGH SPEED READER 
TYPE 4iiiB HIGH SPEED READER 

SWITCH SETTINGS 

STARTING ADDRESS 
40SSTAPT 
4|sSTART 
42sSTAPT 

43sSTAPT 
44SSTART 

45»START 

46e$ ? AR ? 

47sSTART 

50^STAI?T 
L C13«IMHISIT 
eClJaPROCEED 



SWITCH 
SWITCH 

SWITCH 
SWITCH 
SWITCH 



PUNCH DIAGMOSTIC 

READER DIAGNOSTIC 

PUNCH FPON SWITCHES 

PUNCH COUNT ROUTINE 

READ COUNT ROUTINE 

PUNC« ALTERNATE ROUTINE 

»EAD AL T E°^7E RPU72ME 

PU^CH ^LCA7I>wG ZERO 

READ FLHATTNG ZERO 

DELAYS ^HEN PUNCHING 
FROH ERROP* IN DIAGNOSTICS, 
1 CI D « INHIBIT MINTING 1^ THE DIAGNOSTIC 
2(l3aPP!NT FAILURE PATE 
8-l5aDATA FOR THE PUNCH SWITCHS ROUTINE 



IF TN£ MS READER AWQ PUNCH APE IN THE 

SYSTEM AMD TWFIR DEVICE CODES ARE ^OT 12, AND 

131 LOAD AC0 *ITW THE EVEN DEVICE CODE AND 

START AT LOC 4, THF progRA" WILL MODIFY 

ITSELF AK'D H4LT, SET S'wITCHS TO DESIRED STARTING 

ADDRESS PRESS RESET A\Q START. 
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JSR #I20CT 
JSR PXME8S 
BAOtQ 
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JSR #IZOCT 

JMP #RER 

STA 3,RER 
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JMP RDWT*1 
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LDA 

LUA 
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8KP8Z FTP, 
ADC 1,1 
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17 8060175 



JSR P8ETUP 
NIOS PTP, 
JSR PtaAlT 
NIOS PTP, 
SKPDZ PTP, 
EHALT 
JSP #WAIT 
JSR #LOOP 



ICHECK THAT A START 
fPULSE WILL CLEAR 
ITHE DONF PLA6, 
ICHECK E60 1-2-8, 
ITO THE CLEAP SIDE 
IOF DONE, 



2$ 0M6074 A381 

21 P»«S01 13 

22 0016073 

23 W60213 

24 M63713 

25 3C16876 
28 V5«6»75 



JSR iSETUP 
NIOS PTP, 
JSP #WAIT 
NJOC PTP. 
SKPDZ PTP, 
EHALT 
JSP PLOOP 



IA TEST TO INSURE 
ITHAT THE DONE FLOP 
IIS RESET BY A 

ICLEAR PULSE, 
ICHECK OR GATE E60 

IPINS 4-6 TO THE 
ICLEAR SIDE OF DONE, 



27 BB6074 A481 

30 068113 

31 i306a73 

32 063613 

33 083513 

34 151101 1 

35 0(38076 

36 086075 



JSP iSETUP 

wins ptp, 

JSR PW'AIT 
SKPDN PTP, 
SKPBZ PTP, 
MOV* i,y§,SKP 
EHALT 
JSP • L P 



ITHE PUN COHPLEAT 

ILEVEL FAILED TO 

ISFT DONE OR CLEAR 

IBUSY, 

ICHECK 4,5 HS DELAY 

IAND ITS INPUTS 



37 mm?4 A421 
4fl 5980113 

41 OPI6C573 

42 883513 

43 ^06076 

44 tffl6P»75 



JSP iSETUP 
NIOS PTP, 
J S» PwAIT 
%%oni ptp, 

EHALT 
JS» #LOOP 



ITHE PUN CONPLETE 
ILEVEL FAILEO TO 
ICLEAR BUSY, CHECK 
ITHE CLOCK INPUT 
ITO BUSY, THE FLOP 
INAY HAVE FAILED, 



45 00I6G74 A441 J5^ *SET1JP 

48 080113 NIOS PTP, 

4? «08«73 JS° **AIT 

5a P63613 SKPDN PTP, 

51 0B6076 EHALT 

52 306075 JSP #LOOP 



ITPY TO SET DONE VIA 
IPUN CONPLEAT, CHECK 
IPUN DONE FLOP»CLOCK 
IDATA AND CLEAR INPUTS, 
I ALSO CHECK SELDCA80) , 
ITHE AND OF SELECT#DONE, 
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JSR #10UP 
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J5 e #SETUP 
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NIOC CPU 
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102000 
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42 


01217 


0620177 
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SUB 0,0 
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JSR #WAIT 
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ITNTEPRL'PT EVA3UE Z* £ 5; 
II? ITS CEASED T^TEftft'.: 

ic°29; £*:-£-:, 
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fPi»K INT r*i'A5LE 
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4^ M235 
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12 '1243 

13 
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;f 71245 

17 01247 

18 01250 
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2i ^1252 
21 

22 01253 

23 01254 
J?4 81255 

25 01256 

26 01257 

27 81260 

28 01261 

29 01262 
30 

n% 01263 
i2 81264 

33 01265 

34 01266 

35 01267 

36 0127^ 

37 81271 

38 §1272 
35 1273 
40 

4„ ?12?4 
42 ^1275 

40 1276 

44 01277 

45 5*1388 

46 01301 

47 01302 
46 01303 
49 

50 01304 

51 01305 

52 01306 

53 01307 
5 4 1310 
55 21311 
16 ei3l2 
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?62«77 
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006073 
060177 
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006073 

102520 
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JS» *SETUP 

LDA 5SC4 
* ? < 2 
ICPS? 
UIOS PTP, 
JSP PwAIT 
NIOS CPU 
MOV 0,0 
SKPBZ CPU 
EHALT 
J5» PUHCP 

.?3» PSET'jp 
MSS OTP. 

JS« *WA!T 
INTA I 

HQV# 1,1, SNR 
EhALT 

JSP PL0QP 

JSP PSETUP 
NIOS PTP, 
JSP P^AIT 
SUBZL 0,0 
INTA 1 

AND* 18,1, SNR 
EHALT 
JSP PLOOP 

JSP PSETUP 
NIOS PTP, 
JSP PWAIT 
SU8ZL 0,0 
M0V2L 0i0 
INTA I 

AND* 0,1, SNR 
EHALT 
JSP PLOOP 

JS^ #SETUP 

NIOS PTP, 
JSP #WAIT 
LDA fl,XX13 

INTA 1 

SUB* 0,1, SZR 

FhALT 

J5» PLOOP 

JSP PSETUP 
NIOS PTP. 
NJOC PTP. 
JSP PW100 
3KPDZ PTP, 
EHALT 
JSP PLOOP 



fCHECK TC INSURE 
ITNAT I/O PESET 
IWlLL CLEAP THE 
IPUN INT DISABLE 
IFLOP, 

IENABLE INTERRUPTS 



IWITH PUN INT PEQCU 

ISEE IF IMTA RFAOS 

fBACK ANY BITS, 

ICHECK AND OF 

I CINT ACK,PUN INT REQ(l)) 

IAND THE FOLLOWING 

IINVERTER, ETC, ETC. 

ICHECK THE DATA 15 

ILINE ON INTA, 

ICHECK GATE E71 4-5-6 



ICHECK THE DATA 14 

ILINE ON INTA, 

ICHECK GATE E7l 1-2-3. 



ICHECK FOR INTA 
ICODE 13 CFOP PTP) 



ITHE PUN DONE FLAG 
IWAS SET VIA PUN 
ICOMPLEAT EVEN 
IWITH BUSY ZERO. ' 
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40 
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43 
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5; 

^2 id 
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"f» % 
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140 4 
1*05 
i 40 6 
140 7 
141^ 

1*11 

1412 
1413 
1414 
1415 
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1417 
1420 
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1425 
|42S 

1427 
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1432 
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1436 
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' -> 5 ? f 4 

?^607? 

006074 R02i 

.<■ * 6 7 I 2 

4 * 6 7 S 

?. * 7 ij R 4 1 

060100 

•16 35 i? 

■/ 6 -0 7 * 
^ e> •■* 7 5 



006074 
6 a i g 
053519 
v)&697« 

^08075 

4 60 7 4 

020522 
062077 
102620 
160177 
040001 
•063477 
006076 
006075 

006074 
102620 
060177 
040001 
P»S3477 
W06076 
006075 

060112 
0^6085 
06351? 

10i0«2 
0W6076 
006075 

06 0112 

063412 
0«6^76 
006S65 
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Riii 



Rio; 



phi 



R12I 



: zc 1 1 1 1 ^ * 
J 5 « * 3 £ T U » 



F - * _ * 



.OOP 



JSR iSETUP 

1K=D2 °TR, 

JS» fvlOP 

j S s *S£T:jp 

^!"£ 2 

J5R fSETUP 
NIO P7R, 

SKP8Z PTR, 
E W AL T 
JSR *LOOP 

JSP fSETtip 
LDA 0.C20 
M$KO 
SUBZR 0f0 
NIOS CPU 
STA 0,1 
SKPBN CPU 
EHALT 
JSP #LOOP 

J5R #SETijp 
SU3ZR 0#i 

NIOS CPU 
8TA 0, i 
SKPBN CPU 
EHALT 
J5R PLOOP 

JSR PSETUP 
NIOS PTR, 
JSR #TIME 
SKP87 PTR t 
MOV i f # SZC 
EHALT 
JSR #LOOP 

JSR iSETUP 

NIOS PTR, 
SKPBN PTR» 
EHALT 
JSR PT1ME 
SHPBZ PTR, 
JSR #LOQP 



IPAPfR *ap? *EADE* 
!C*EC< $*„' ^:^E!^i2% 

fe*c*e?:, 

fPTR OCNF FL*G 
I SHOULD S£ •?, 
IC«€C^ 3EL? u^ ; £CA80I» 
f ETC, 

fDEvi:? % -2" *HE »'? 

I A N GATE (T? C«'AR? # 
IRD SELECT), 

ISELECTIN3 THE p?R 
IWITHOUT A START 
fPULSE SET THE BUSY 
IFLOP, CHECK A^O OF 
I (START, RD SELECT) . 

IT11RN Oh THE 

IINTERRUPT SYSTEM, 

ICHECK FCR NO INTERRUPT, 

IBUT1 

IINTERRUPT OCCURED* 

ICHECK INTR L1NEC8295 . 

IANO RO INT pq FLOP, 



ITURN ON THE INTERRUPT, 
ICHECK FOR NO INTERRUPT 
IINTERRUPT OCCUREO, 
ICHECK EP2-9 THE 
fDONE CD INPUT TO AND 
fOF CRD INT DISABLECi) , 
IRD D0NECI13, 

IBUSV FAILED TO 

ICLE&R, PAPER IN READERf 

IIS LEVER OGWM? 

ISWITCH IN RUN »OSITICNf 

ICHECK SEL8CA823 ANQ 

IRD STROBE INPUT T0 SUSY, 



ITRV TO SET THE 
IBUS* P 10P VIA 
ISTART, CHECK AND SATE 
iQF(START,Rp SELECT) 
IANO RD SUSY. 
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JSR #TIH£ 
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JS» PSETUP 
MICS PTR, 
JSR •TIME 
SKPSZ ^TP, 

NIOC PTR. 
SKPOZ PTR, 
EHALT 
JSR PLOOP 

JSP PSETUP 
NIOS PTR. 
JSR PTIME 
SKPBZ PTR, 
NIOS PTN, 
SKPDZ PTR, 
EHALT 
JSP PLOOP 



fl/C RESET FAILED 
JTC CLEAR THE 
IRD OON'E PLAT,, 



IA CLEAR PULSE 
ITO THE PAPEP TAPE 
IREADEP FAILED TO 
ICLEAR RD DONE, 



IA START PULSE 
tin THE PAPER TAPE 
IREADER FAILED TO 
FCLEAR RO DONE, 
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